home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / w3-cus.el.z / w3-cus.el
Encoding:
Text File  |  1998-05-21  |  19.4 KB  |  562 lines
  1.  
  2. ;;; w3-cus.el --- Customization support for Emacs-W3
  3. ;; Author: wmperry
  4. ;; Created: 1998/01/05 15:17:36
  5. ;; Version: 1.18
  6. ;; Keywords: comm, help, hypermedia
  7.  
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9. ;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
  10. ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
  11. ;;;
  12. ;;; This file is part of GNU Emacs.
  13. ;;;
  14. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  15. ;;; it under the terms of the GNU General Public License as published by
  16. ;;; the Free Software Foundation; either version 2, or (at your option)
  17. ;;; any later version.
  18. ;;;
  19. ;;; GNU Emacs is distributed in the hope that it will be useful,
  20. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22. ;;; GNU General Public License for more details.
  23. ;;;
  24. ;;; You should have received a copy of the GNU General Public License
  25. ;;; along with GNU Emacs; see the file COPYING.  If not, write to the
  26. ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  27. ;;; Boston, MA 02111-1307, USA.
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. (eval-and-compile
  30.   (condition-case ()
  31.       (require 'custom)
  32.     (error nil))
  33.   (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
  34.       nil ;; We've got what we needed
  35.     ;; We have the old custom-library, hack around it!
  36.     (defmacro defgroup (&rest args)
  37.       nil)
  38.     (defmacro defcustom (var value doc &rest args) 
  39.       (` (defvar (, var) (, value) (, doc))))))
  40.  
  41. (defgroup w3 nil
  42.   "Emacs-W3 - the web browser of choice."
  43.   :group 'hypermedia)
  44.  
  45. (defgroup w3-files nil
  46.   "Emacs-W3 configuration files."
  47.   :group 'w3
  48.   :prefix "w3-")
  49.  
  50. (defgroup w3-images nil
  51.   "Controlling image handling."
  52.   :group 'w3
  53.   :prefix "w3-")
  54.  
  55. (defgroup w3-printing nil
  56.   "Various options for hardcopy from web pages."
  57.   :group 'w3
  58.   :prefix "w3-")
  59.  
  60. (defgroup w3-menus nil
  61.   "The look of menus in Emacs-W3"
  62.   :group 'w3
  63.   :prefix "w3-")
  64.  
  65. (defgroup w3-parsing nil
  66.   "Options relating to HTML parsing"
  67.   :group 'w3
  68.   :prefix "w3-")
  69.  
  70. (defgroup w3-display nil
  71.   "Variables relating to how web pages are displayed."
  72.   :group 'w3
  73.   :prefix "w3-")
  74.  
  75. (defgroup w3-hooks nil
  76.   "Hooks relating to Emacs-W3."
  77.   :group 'w3
  78.   :prefix "w3-")
  79.  
  80. ;;; File related variables
  81. (defcustom w3-configuration-directory "~/.w3/"
  82.   "*Directory where Emacs-w3 can find its configuration files"
  83.   :group 'w3-files
  84.   :type 'directory)  
  85.  
  86. (defcustom w3-default-configuration-file nil
  87.   "*Where per-user customizations of w3 are kept."
  88.   :group 'w3-files
  89.   :type 'file)
  90.  
  91. (defcustom w3-default-homepage nil
  92.   "*The url to open at startup.  It can be any valid URL.
  93. This will default to the environment variable WWW_HOME if you do not
  94. set it in your .emacs file. If WWW_HOME is undefined, then it will
  95. default to  the hypertext documentation for W3 at Indiana University."
  96.   :group 'w3-files
  97.   :type 'string)
  98.  
  99. (defcustom w3-default-stylesheet nil
  100.   "*The filename of the users default stylesheet."
  101.   :group 'w3-files
  102.   :type 'file)
  103.  
  104. (defcustom w3-hotlist-file nil
  105.   "*Hotlist filename.
  106. This should be the name of a file that is stored in either
  107. NCSA's Mosaic/X or Netscape/X format.  It is used to keep a listing
  108. of commonly accessed URL's without having to go through 20 levels of
  109. menus to get to them."
  110.   :group 'w3-files
  111.   :type 'file)
  112.  
  113. (defcustom w3-documentation-root "http://www.cs.indiana.edu/elisp/w3/"
  114.   "*Where the w3 documentation lives.  This MUST end in a slash."
  115.   :group 'w3-files
  116.   :type 'string)
  117.  
  118. (defcustom w3-temporary-directory (or (getenv "TMPDIR") "/tmp")
  119.   "*Where temporary files go."
  120.   :group 'w3-files
  121.   :type 'directory)
  122.  
  123. ;;; Display related variables
  124. (defcustom w3-display-frames t
  125.   "*Fetch frames - can be:
  126. nil        no frame display whatsoever
  127. 'as-links    display frame hyperlinks, but do not fetch them
  128. 'ask        display frame hyperlinks and ask whether to fetch them
  129. t        display frame hyperlinks and fetch them."
  130.   :group 'w3-display
  131.   :type '(choice (const :tag "Do not display frames" :value nil)
  132.          (const :tag "Show hyperlinks" :value as-links)
  133.          (const :tag "Show hyperlinks, ask whether to retrieve them" :value ask)
  134.          (const :tag "Automatically retrieve frames" :value t)))
  135.  
  136. (defcustom w3-bullets
  137.   '((disc   . ?*)
  138.     (circle . ?o)
  139.     (square . ?#)
  140.     (none   . ? )
  141.     )
  142.   "*An assoc list of unordered list types mapping to characters to use
  143. as the bullet character."
  144.   :group 'w3-display
  145.   :type 'list)
  146.  
  147. (defcustom w3-echo-link '(title url text name)
  148.   "*Whether to display the URL of a link when tabbing through links.
  149. Value is a list of one or more of the following symbols:
  150.  
  151.   url    == url of the target
  152.   text   == text of the link
  153.   title  == title attribute of the link
  154.   name   == name or id attribute of the link
  155.  
  156. If none of the information is available, nothing will be shown for the link
  157. in menus, etc."
  158.   :group 'w3-display
  159.   :type '(set (const :tag "URL" :value url)
  160.           (const :tag "Link Text" :value text)
  161.           (const :tag "Title of the link as defined in the HTML tag"
  162.              :value title)
  163.           (const :tag "Name of the link as defined in the HTML tag"
  164.              :value name)))
  165.  
  166. (defcustom w3-horizontal-rule-char nil
  167.   "*The character to use to create a horizontal rule.
  168. Must be the character's code, not a string.  This character is
  169. replicated across the screen to create a division.
  170. If nil W3 will use a terminal graphic character if possible."
  171.   :group 'w3-display
  172.   :type '(choice (const :tag "Best possible" :value nil)
  173.          (character)))
  174.  
  175. ;;; these three variables control how w3-setup-terminal-chars works
  176. (defcustom w3-use-terminal-characters t
  177.   "*Use terminal graphics characters for drawing tables and rules if available"
  178.   :group 'w3-display
  179.   :type 'boolean)
  180.  
  181. (defcustom w3-use-terminal-characters-on-tty nil
  182.   "*Use terminal graphics characters for tables and rules even on a tty.
  183. This triggers display bugs on both FSF Emacs and XEmacs. 
  184. (Though it's usually tolerable at least on FSF Emacs.)"
  185.   :group 'w3-display
  186.   :type 'boolean)
  187.  
  188. (defcustom w3-use-terminal-glyphs t
  189.   "*Use glyphs if possible rather than properties for terminal graphics characters
  190.  
  191. Glyphs are probably more efficient but don't work with the most recent versions
  192. of XEmacs and there are some cute tricks we can play with text-properties that
  193. glyphs won't let us do. It may be possible someday to make XEmacs automagically
  194. translate the characters back to ascii characters when pasted into another
  195. buffer. (On the other hand, right now w3-excise-terminal-characters doesn't
  196. work at all if we're using text-properties)."
  197.   :group 'w3-display
  198.   :type '(choice (const :tag "Use Glyphs" :value t)
  199.          (const :tag "Use Text Properties" :value nil)))
  200.  
  201. (defcustom w3-do-incremental-display nil
  202.   "*Whether to do incremental display of pages or not."
  203.   :group 'w3-display
  204.   :type 'boolean)
  205.  
  206. (defcustom w3-defined-link-types
  207.   ;; This is the HTML3.0 list (downcased) plus "made".
  208.   '("previous" "next" "up" "down" "home" "toc" "index" "glossary"
  209.     "copyright" "bookmark" "help" "made" "contents" "top")
  210.   "A list of the (lower-case) names which have special significance
  211. as the values of REL or REV attributes of <link> elements.  They will
  212. be presented on the toolbar or the links menu, for instance."
  213.   :group 'w3-display
  214.   :type '(repeat string))
  215.  
  216. ;;; Parsing related variables
  217. (defcustom w3-debug-html nil
  218.   "*Whether to gripe about bad HTML or not."
  219.   :group 'w3-parsing
  220.   :type '(choice (const :tag "HTML Errors" :value t)
  221.          (const :tag "Errors and stylistic issues" :value style)
  222.          (const :tag "None" :value nil)))
  223.  
  224. (defcustom w3-debug-buffer "*HTML Debug*"
  225.   "*Name of buffer to store debugging information in."
  226.   :group 'w3-parsing
  227.   :type 'string)
  228.  
  229. ;;; Image related variables
  230. (defcustom w3-auto-image-alt 'w3-default-image-alt-func
  231.   "*Whether emacs-w3 should create an alt attribute for an image that
  232. is missing it.
  233. If nil, Emacs-W3 will not automatically create an ALT attribute.
  234.  
  235. If a string, it should be a string suitable for running through format,
  236. with only one %s, which will be replaced with just the filename of the
  237. graphic that is not loaded.
  238.  
  239. Otherwise, it is considered a function and is passed a single
  240. argument, the filename of the graphic that is not loaded.
  241. "
  242.   :group 'w3-images
  243.   :type '(choice (const :tag "None" :value nil)
  244.          (const :tag "Default" :value "[IMAGE(%s)]")
  245.          (string :tag "Format string")
  246.          (sexp :tag "Function" :value nil)))
  247.  
  248. (defcustom w3-icon-directory "http://cs.indiana.edu/elisp/w3/icons/"
  249.   "*Where to find standard icons.  Must end in a /!"
  250.   :group 'w3-images
  251.   :type 'string)
  252.  
  253. (defcustom w3-icon-format 'gif
  254.   "*Image format the default icons are expected to be in.
  255. This is a symbol, string or nil, specifing what file extension to use.
  256. If nil, then no file extension is used."
  257.   :group 'w3-images
  258.   :type '(choice (const :tag "GIF Image" :value gif)
  259.          (const :tag "XPM Image" :value xpm)
  260.          (const :tag "XBM Image" :value xbm)
  261.          (const :tag "Let the server decide" :value nil)
  262.          (string :tag "Other")))
  263.  
  264. (defcustom w3-delay-image-loads (not (or (featurep 'gif)
  265.                      (featurep 'jpeg)
  266.                      (featurep 'imagick)
  267.                      (featurep 'png)))
  268.   "*Whether to delay image loading, or automatically retrieve them."
  269.   :group 'w3-images
  270.   :type 'boolean)
  271.  
  272. (defcustom w3-image-mappings
  273.   (if (featurep 'imagick)
  274.       '(
  275.     ("image/x-xbitmap"        . xbm)
  276.     ("image/xbitmap"          . xbm)
  277.     ("image/xbm"              . xbm)
  278.     ("image/jpeg"             . imagick)
  279.     ("image/gif"              . imagick)
  280.     ("image/png"              . imagick)
  281.     ("image/x-fax"            . imagick)
  282.     ("image/x-raster"         . imagick)
  283.     ("image/windowdump"       . imagick)
  284.     ("image/x-icon"           . imagick)
  285.     ("image/portable-graymap" . imagick)
  286.     ("image/portable-pixmap"  . imagick)
  287.     ("image/x-pixmap"         . imagick)
  288.     ("image/x-xpixmap"        . imagick)
  289.     ("image/pict"             . imagick)
  290.     ("image/x-rgb"            . imagick)
  291.     ("image/x-sgi"            . imagick)
  292.     ("image/x-macpaint"       . imagick)
  293.     ("image/x-targa"          . imagick)
  294.     ("image/tiff"             . imagick)
  295.     )
  296.     '(
  297.       ("image/x-xbitmap"        . xbm)
  298.       ("image/xbitmap"          . xbm)
  299.       ("image/xbm"              . xbm)
  300.       ("image/jpeg"             . jpeg)
  301.       ("image/gif"              . gif)
  302.       ("image/png"              . png)
  303.       ("image/x-fax"            . g3fax)
  304.       ("image/x-raster"         . rast)
  305.       ("image/windowdump"       . xwd)
  306.       ("image/x-icon"           . icon)
  307.       ("image/portable-graymap" . pgm)
  308.       ("image/portable-pixmap"  . ppm)
  309.       ("image/x-pixmap"         . xpm)
  310.       ("image/x-xpixmap"        . xpm)
  311.       ("image/pict"             . pict)
  312.       ("image/x-rgb"            . sgi)
  313.       ("image/x-sgi"            . sgi)
  314.       ("image/x-macpaint"       . macpt)
  315.       ("image/x-targa"          . tga)
  316.       ("image/tiff"             . tiff)
  317.       )
  318.     )
  319.   "*How to map MIME types to image types for the `image' package.
  320. Each entry is a cons cell of MIME types and image-type symbols."
  321.   :group 'w3-images
  322.   :type '(repeat (cons :format "%v"
  323.                (string :tag "MIME Type")
  324.                (symbol :tag "Image type"))))
  325.  
  326. ;;; Printing variables
  327. (defcustom w3-latex-docstyle "{article}"
  328.   "*The documentstyle to use when printing or mailing files as LaTeX.
  329. Good defaults are: {article}, [psfig,twocolumn]{article}, etc."
  330.   :group 'w3-printing
  331.   :type 'string)
  332.  
  333. (defcustom w3-latex-print-links nil
  334.   "*If non-nil, prints the URLs of hypertext links as endnotes at the end of
  335. the document.  If `footnote', prints the URL's as footnotes on a page."
  336.   :group 'w3-printing
  337.   :type '(choice (const :tag "As endnotes" :value t)
  338.          (const :tag "As footnotes" :value footnote)
  339.          (const :tag "Do not print" :value nil)))
  340.  
  341. (defcustom w3-latex-use-latex2e nil
  342.   "*If non-nil, configures LaTeX parser to use LaTeX2e syntax.  A `nil' 
  343. value indicates that LaTeX 2.0.9 compatibility will be used instead."
  344.   :group 'w3-printing
  345.   :type 'boolean)
  346.  
  347. (defcustom w3-latex-packages nil
  348.   "*List of LaTeX packages to include when converting HTML to LaTeX.
  349. Currently this is only used if `w3-latex-use-latex2e' is non-nil."
  350.   :group 'w3-printing
  351.   :type '(repeat string))
  352.  
  353. (defcustom w3-latex-use-maketitle nil
  354.   "*Non-nil makes the LaTeX parser use real LaTeX title pages."
  355.   :group 'w3-printing
  356.   :type 'boolean)
  357.  
  358. ;;; Menus
  359. (defcustom w3-max-menu-length 35
  360.   "*The maximum length of a pulldown menu before it will be split into
  361. smaller chunks, with the first part as a submenu, followed by the rest
  362. of the menu."
  363.   :group 'w3-menus
  364.   :type 'integer)
  365.  
  366. (defcustom w3-max-menu-width 40
  367.   "*The maximum width of a pulldown menu choice."
  368.   :group 'w3-menus
  369.   :type 'integer)
  370.  
  371. ;;; Advanced stuff
  372. (defcustom w3-modeline-format
  373.   '("  " ("W3"
  374.     (w3-netscape-emulation-minor-mode
  375.      " (NS)")
  376.     (w3-lynx-emulation-minor-mode
  377.      " (Lynx)")
  378.     ": "
  379.     (40 (-40 "%b"))
  380.     " "
  381.     (w3-current-isindex "[Searchable]  ")
  382.     (w3-current-badhtml "[BAD HTML]  ")
  383.     "%p" "  " global-mode-string))
  384.   "*The modeline format string when in w3 mode"
  385.   :group 'w3-advanced
  386.   :type 'list)
  387.  
  388. (defcustom w3-netscape-compatible-comments t
  389.   "*Whether to honor netscape-style <! > comments.
  390. Ye gods I wish I could turn this off by default."
  391.   :group 'w3-parsing
  392.   :type 'boolean)
  393.  
  394. (defcustom w3-notify 'semibully
  395.   "*Selects the behavior when w3 page is ready.
  396. This variable may have one of the following values:
  397.  
  398. newframe   -- put the w3 page in its own frame
  399. bully      -- make the w3 page the current buffer and only window
  400. semibully  -- make the w3 page the current buffer in the same window
  401. aggressive -- make the w3 page the current buffer in the other window
  402. friendly   -- display  w3page in other window but don't make current
  403. polite     -- don't display w3 page, but prints message when ready (beeps)
  404. quiet      -- like `polite', but don't beep
  405. meek       -- make no indication that page is ready
  406.  
  407. Any other value of `w3-notify' is equivalent to `meek'."
  408.   :group 'w3-display
  409.   :type '(choice (const :tag "Display in a new frame"
  410.             :value newframe)
  411.          (const :tag "Display in the current window, select buffer, and kill other windows"
  412.             :value bully)
  413.          (const :tag "Display in the current window, select buffer"
  414.             :value semibully)
  415.          (const :tag "Display in another window, select buffer"
  416.             :value aggressive)
  417.          (const :tag "Display in another window, but do not select it"
  418.             :value friendly)
  419.          (const :tag "Do not display page, but show a message and beep"
  420.             :value polite)
  421.          (const :tag "Do not display page, but show a message (no beep)"
  422.             :value quiet)
  423.          (const :tag "Do not indicate that the page has been retrieved"
  424.             :value meek)))
  425.  
  426. (defcustom w3-popup-menu-on-mouse-3 t
  427.   "*Non-nil value means W3 should provide context-sensitive menus on mouse-3.
  428. A nil value means W3 should not change the binding of mouse-3."
  429.   :group 'w3-display
  430.   :type 'boolean)
  431.  
  432. (defcustom w3-print-command "lpr -h -d"
  433.   "*Print command for dvi files.
  434. This is usually 'lpr -h -d' to send it to a postscript printer, but you can set
  435. it up so that it is any command that takes a dvi file as its last argument."
  436.   :group 'w3-printing
  437.   :type 'string)
  438.  
  439. (defcustom w3-reuse-buffers 'yes
  440.   "What to do when following a link will re-fetch a document that has
  441. already been fetched into a W3 buffer.  Possible values are: nil,
  442. 'yes, and 'no.  Nil means ask the user if we should reuse the buffer.
  443.  A value of 'yes means assume the user wants us to reuse the buffer.
  444. A value of 'no means assume the user wants us to re-fetch the document.
  445.  
  446. This will also accept:
  447. 'no    ==> always reload
  448. 'yes    ==> always reuse
  449. 'ask    ==> always ask"
  450.   :group 'w3-display
  451.   :type '(choice (const :tag "Always reload" :value no)
  452.          (const :tag "Always reuse" :value yes)
  453.          (const :tag "Always ask" :value ask)))
  454.  
  455. (defcustom w3-right-margin 2
  456.   "*Default right margin for Emacs-W3 buffers.
  457. This amount is subtracted from (window-width) for each new WWW buffer
  458. and used as the new fill-column."
  459.   :group 'w3-display
  460.   :type 'integer)
  461.  
  462. (defcustom w3-maximum-line-length nil
  463.   "*Maximum length of a line.
  464. If nil, then lines can extend all the way to the window margin."
  465.   :group 'w3-display
  466.   :type 'integer)
  467.  
  468. (defcustom w3-track-mouse t
  469.   "*Whether to track the mouse and message the url under the mouse."
  470.   :group 'w3-display
  471.   :type 'boolean)
  472.  
  473. (defcustom w3-honor-stylesheets t
  474.   "*Whether to let a document specify a CSS stylesheet."
  475.   :group 'w3-display
  476.   :type 'boolean)
  477.  
  478. (defcustom w3-user-colors-take-precedence nil
  479.   "*Whether to let a document define certain colors about itself.
  480. Like foreground and background colors and pixmaps, color of links and
  481. visited links, etc."
  482.   :group 'w3-display
  483.   :type 'boolean)
  484.  
  485. ;;; Hook Variables
  486. (defcustom w3-load-hook nil
  487.   "*Hooks to be run after loading w3."
  488.   :group 'w3-hooks
  489.   :type 'hook)
  490.  
  491. (defcustom w3-mode-hook nil
  492.   "*Hooks to be run after entering w3-mode."
  493.   :group 'w3-hooks
  494.   :type 'hook)
  495.  
  496. (defcustom w3-source-file-hook nil
  497.   "*Hooks to be run after getting document source."
  498.   :group 'w3-hooks
  499.   :type 'hook)
  500.  
  501. (defcustom w3-display-errors-hook nil
  502.   "*Hooks to be run after displaying HTML errors for a page."
  503.   :group 'w3-hooks
  504.   :type 'hook)
  505.  
  506. (defcustom w3-html-errors-font-lock-keywords
  507.   '(("\\(HTML errors for\\) \\(.*\\)"
  508.      (1 font-lock-function-name-face) (2 font-lock-reference-face))
  509.     ("Empty \\([A-Z0-9]+\\) element." (1 font-lock-type-face))
  510.     ("Bad attribute name syntax: \\(.*\\)" (1 font-lock-type-face))
  511.     ("Bad attribute value syntax: \\(.*\\)" (1 font-lock-type-face))
  512.     ("Evil attribute value syntax: \\(.*\\)" (1 font-lock-type-face))
  513.     ("Attribute value missing end quote: \\(.*\\)" (1 font-lock-type-face))
  514.     ("Bad start-tag \\([A-Z0-9]+\\)" (1 font-lock-type-face))
  515.     ("\\([A-Z0-9]+\\) element has no \\([A-Z0-9]+\\) attribute"
  516.      (1 font-lock-type-face) (2 font-lock-type-face))
  517.     (", inferring \\(</?[A-Z0-9]+>\\)" (1 font-lock-type-face))
  518.     ("Bad unclosed \\([A-Z0-9]+\\) tag" (1 font-lock-type-face))
  519.     ("Bad comment (unterminated or unbalanced \"\\(--\\)\" pairs)" (1 font-lock-type-face t))
  520.     ("Obsolete element \\(.*\\)" (1 font-lock-type-face))
  521.     ("Deprecated element \\(.*\\)" (1 font-lock-type-face))
  522.     ("\\[deprecated inside \\([A-Z0-9]+\\)\\]" (1 font-lock-type-face))
  523.     ("\\(</[A-Z0-9]+>\\) end-tag not omissible (required due to \\(</?[A-Z0-9]+>\\) end-tag)"
  524.      (1 font-lock-type-face) (2 font-lock-type-face))
  525.     ("Bad data characters [\\([^][]\\)], " (1 font-lock-comment-face))
  526.     ("Bad \\(<!\\) syntax." (1 font-lock-type-face))
  527.     ("Unterminated IGNORE marked section.")
  528.     ("Invalid SGML character: \\(.\\)" (1 font-lock-type-face))
  529.     ("Unmatched end-tag \\(</[A-Z0-9]+>\\)" (1 font-lock-type-face))
  530.     ;;("</?[A-Z0-9]+>" . font-lock-type-face)
  531.     ("^  [A-Z][a-zA-Z0-9 ]*: .*" . font-lock-comment-face)
  532.     ("^  [A-Z][a-zA-Z0-9 ]*: " . font-lock-comment-face)
  533.     ("\\*ERROR\\*" 0 font-lock-keyword-face t))
  534.   "*Font locking keywords used for HTML error display"
  535.   :group 'w3
  536.   :type 'list)
  537.  
  538. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  539. ;;; Internationalization
  540. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  541. (defconst w3-mule-charset-to-coding-alist
  542.   '(
  543.     ("us-ascii"      . no-conversion)
  544.     ("iso-8859-1" . no-conversion)
  545.     ("iso-8859-2" . iso-8859-2)
  546.     ("iso-8859-3" . iso-8859-3)
  547.     ("iso-8859-4" . iso-8859-4)
  548.     ("iso-8859-5" . iso-8859-5)
  549.     ("iso-8859-6" . iso-8859-6)
  550.     ("iso-8859-7" . iso-8859-7)
  551.     ("iso-8859-8" . iso-8859-8)
  552.     ("iso-8859-9" . iso-8859-9)
  553.     ("iso-2022-jp" . iso-2022-jp)
  554.     ;; probably not correct, but probably better than nothing.
  555.     ("iso-2022-jp-2" . iso-2022-jp)
  556.     ("iso-2022-int-1" . iso-2022-int-1)
  557.     ("iso-2022-kr"    . iso-2022-kr)
  558.     ("euc-kr"         . iso-2022-kr)
  559.     ))
  560.   
  561. (provide 'w3-cus)
  562.